home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / mouse_on.zip / MOUSE-ON.BAS < prev    next >
BASIC Source File  |  1993-06-24  |  683b  |  11 lines
  1. 100 REM MOUSE-ON.BAS PAF v2.2 does not initialize some mice.  This program works for Mouse Systems mouse, driver version 5.50a (1987) and probably other mice
  2. 110 REM Run this program AFTER running mouse driver and BEFORE running PAF (a batch file would be handy).  MOUSE-ON.EXE is the stand-alone version of this BASIC code
  3. 120 DEF SEG=0:MSEG=256*PEEK(51*4+3)+PEEK(51*4+2):MOUSE=256*PEEK(51*4+1)+PEEK(51*4)+2
  4. 130 IF MSEG<>0 AND MOUSE<>2 THEN 150
  5. 140 PRINT "mouse not available - have you run the mouse driver?":WHILE INKEY$="":WEND:GOTO 180
  6. 150 DEF SEG=MSEG:IF PEEK(MOUSE-2)=&HCF THEN 140
  7. 160 M1%=0:M2%=0:M3%=0:M4%=0
  8. 170 CALL MOUSE(M1%,M2%,M3%,M4%)
  9. 180 DEF SEG
  10. 190 SYSTEM
  11.